<!--#include file="lib/utf-8.asp"-->
<%
dim http
set http=server.createobject("Msxml2.XMLHTTP")
http.open "GET","http://localhost/baoguan/json.asp",false
http.send
str=http.responseText
response.write str
ParseJson str
sub ParseJson(str)
	dim sc
	set sc=server.createobject("MSScriptControl.ScriptControl")
	sc.Language="JScript"
	sc.AddCode "var o="&str&";"
	a=sc.Eval("o.bStatus")
	b=sc.Eval("o.sInfo")
	response.write a&b
end sub

%>

